home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / paslib.arc / MAKELIB.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-10-04  |  1.9 KB  |  73 lines
  1. PROGRAM MAKELIB_COM; {FOR CONVAIR V1.01A}
  2.  
  3. VAR
  4.    INFILE : TEXT;
  5.    OUTFILE : TEXT;
  6.    temp : text;
  7.    INFILENAME: STRING[255];
  8.    FLAG : INTEGER;
  9.    OUTFILENAME : STRING[255];
  10.    BOOBOO : BOOLEAN;
  11.    STUFF : CHAR ;
  12.    DUM : CHAR;
  13.    NEWFILE : BOOLEAN;
  14.  
  15. LABEL
  16.      BOO,STOP,SKIPPED;
  17.  
  18. BEGIN
  19.      NEWFILE := FALSE;
  20.      WRITE('Enter in-file name [>');
  21.      READLN(INFILENAME);
  22.      WRITE('Enter out-file name [>');
  23.      READLN(OUTFILENAME);
  24.   {$I-}
  25.      ASSIGN(INFILE,INFILENAME);
  26.      RESET(INFILE);
  27.   {$I+}
  28.      FLAG := IORESULT;
  29.      IF FLAG > 0 THEN BOOBOO := TRUE;
  30.   {$I-}
  31.      ASSIGN(OUTFILE,OUTFILENAME);
  32.      RESET(OUTFILE);
  33.   {$I+}
  34.      FLAG := IORESULT;
  35.      IF FLAG > 0 THEN NEWFILE := TRUE;
  36.      IF BOOBOO THEN GOTO BOO;
  37.      ASSIGN(TEMP,'TEMPORAR.Y$$');
  38.      REWRITE(TEMP);
  39.      WRITE('Working...');
  40.      writeln(temp,'{----------------------------------------------------------------------------}');
  41.      WRITELN(TEMP,'{SOURCE FILENAME - ',INFILENAME,'}');
  42.      writeln(temp,'{----------------------------------------------------------------------------}');
  43.      WHILE NOT EOF(INFILE) DO
  44.            BEGIN
  45.                 READ(INFILE,STUFF);
  46.                 WRITE(TEMP,STUFF);
  47.            END;
  48.      WRITELN(TEMP,' ');
  49.      IF NOT NEWFILE THEN
  50.         BEGIN
  51.             WHILE NOT EOF(OUTFILE) DO
  52.                   BEGIN
  53.                        READ(OUTFILE,STUFF);
  54.                        WRITE(TEMP,STUFF);
  55.                   END;
  56.         END;
  57.      REWRITE(OUTFILE);
  58.      RESET(TEMP);
  59.      WHILE NOT EOF(TEMP) DO
  60.            BEGIN
  61.                 READ(TEMP,STUFF);
  62.                 WRITE(OUTFILE,STUFF);
  63.            END;
  64.      IF NOT BOOBOO THEN GOTO STOP;
  65. BOO:
  66.      WRITE('One or more of the specified files is not valid');
  67.      WRITE(FLAG,BOOBOO);
  68. STOP:
  69.      CLOSE(INFILE);
  70.      CLOSE(OUTFILE);
  71.      IF NOT NEWFILE THEN erase(temp);
  72. {$I+}
  73.  END.